Apple Reference & Presentation Library 1993 Spring

home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Spring / ARPL-Spring-93-Partner-Edition.iso / Applications / Spreadsheets / Microsoft Excel 4.0 Demo / Shared Cast / Shared Cast.rsrc / STXT_1285 < prev next >
Unknown | 1992-03-18 | 8.1 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	dexmagic	Director STXT	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 0c 00 00 17 78 | 00 00 08 d6 2d 2d 0d 4d |.......x|....--.M|
|00000010| 61 63 72 6f 20 49 6d 6d | 65 64 69 61 74 65 4f 4e |acro Imm|ediateON|
|00000020| 20 73 74 61 72 74 2c 20 | 45 6e 64 0d 72 65 70 65 | start, |End.repe|
|00000030| 61 74 20 77 68 69 6c 65 | 20 73 74 61 72 74 20 3c |at while| start <|
|00000040| 3d 20 65 6e 64 0d 20 20 | 20 20 73 65 74 20 74 68 |= end.  |  set th|
|00000050| 65 20 69 6d 6d 65 64 69 | 61 74 65 20 6f 66 20 73 |e immedi|ate of s|
|00000060| 70 72 69 74 65 20 73 74 | 61 72 74 20 3d 20 74 72 |prite st|art = tr|
|00000070| 75 65 0d 20 20 20 20 73 | 65 74 20 73 74 61 72 74 |ue.    s|et start|
|00000080| 20 3d 20 73 74 61 72 74 | 20 2b 20 31 0d 65 6e 64 | = start| + 1.end|
|00000090| 20 72 65 70 65 61 74 0d | 2d 2d 0d 4d 61 63 72 6f | repeat.|--.Macro|
|000000a0| 20 50 75 70 70 65 74 4f | 66 66 20 73 74 61 72 74 | PuppetO|ff start|
|000000b0| 2c 20 45 6e 64 0d 72 65 | 70 65 61 74 20 77 68 69 |, End.re|peat whi|
|000000c0| 6c 65 20 73 74 61 72 74 | 20 3c 3d 20 65 6e 64 0d |le start| <= end.|
|000000d0| 20 20 20 20 73 65 74 20 | 74 68 65 20 70 75 70 70 |    set |the pupp|
|000000e0| 65 74 20 6f 66 20 73 70 | 72 69 74 65 20 73 74 61 |et of sp|rite sta|
|000000f0| 72 74 20 3d 20 66 61 6c | 73 65 0d 20 20 20 20 73 |rt = fal|se.    s|
|00000100| 65 74 20 73 74 61 72 74 | 20 3d 20 73 74 61 72 74 |et start| = start|
|00000110| 20 2b 20 31 0d 65 6e 64 | 20 72 65 70 65 61 74 0d | + 1.end| repeat.|
|00000120| 2d 2d 0d 4d 61 63 72 6f | 20 57 61 69 74 66 6f 72 |--.Macro| Waitfor|
|00000130| 4d 6f 75 73 65 55 50 20 | 77 68 65 72 65 74 6f 0d |MouseUP |whereto.|
|00000140| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 74 68 65 |repeat w|hile the|
|00000150| 20 6d 6f 75 73 65 64 6f | 77 6e 0d 65 6e 64 20 72 | mousedo|wn.end r|
|00000160| 65 70 65 61 74 0d 67 6f | 20 77 68 65 72 65 74 6f |epeat.go| whereto|
|00000170| 0d 0d 0d 4d 61 63 72 6f | 20 49 6e 69 74 41 74 74 |...Macro| InitAtt|
|00000180| 72 61 63 74 0d 67 6c 6f | 62 61 6c 20 49 6e 64 69 |ract.glo|bal Indi|
|00000190| 76 69 64 75 61 6c 2c 20 | 20 50 72 65 76 56 6f 6c |vidual, | PrevVol|
|000001a0| 2c 20 50 72 65 76 44 65 | 70 74 68 2c 20 4e 61 6d |, PrevDe|pth, Nam|
|000001b0| 65 43 61 73 74 2c 20 52 | 65 74 75 72 6e 69 6e 67 |eCast, R|eturning|
|000001c0| 0d 53 65 74 20 52 65 74 | 75 72 6e 69 6e 67 20 3d |.Set Ret|urning =|
|000001d0| 20 22 41 74 74 72 61 63 | 74 20 4c 6f 6f 70 22 0d | "Attrac|t Loop".|
|000001e0| 73 65 74 20 4e 61 6d 65 | 43 61 73 74 20 3d 20 45 |set Name|Cast = E|
|000001f0| 35 31 0d 73 65 74 20 74 | 68 65 20 65 78 69 74 6c |51.set t|he exitl|
|00000200| 6f 63 6b 20 3d 20 74 72 | 75 65 0d 73 65 74 20 50 |ock = tr|ue.set P|
|00000210| 72 65 76 56 6f 6c 20 3d | 20 74 68 65 20 73 6f 75 |revVol =| the sou|
|00000220| 6e 64 6c 65 76 65 6c 0d | 73 65 74 20 50 72 65 76 |ndlevel.|set Prev|
|00000230| 44 65 70 74 68 20 3d 20 | 74 68 65 20 63 6f 6c 6f |Depth = |the colo|
|00000240| 72 64 65 70 74 68 0d 73 | 65 74 20 74 68 65 20 63 |rdepth.s|et the c|
|00000250| 6f 6c 6f 72 64 65 70 74 | 68 20 3d 20 34 0d 69 66 |olordept|h = 4.if|
|00000260| 20 74 68 65 20 73 6f 75 | 6e 64 6c 65 76 65 6c 20 | the sou|ndlevel |
|00000270| 3d 20 30 20 74 68 65 6e | 20 73 65 74 20 74 68 65 |= 0 then| set the|
|00000280| 20 73 6f 75 6e 64 45 6e | 61 62 6c 65 64 20 74 6f | soundEn|abled to|
|00000290| 20 66 61 6c 73 65 0d 73 | 65 74 20 49 6e 64 69 76 | false.s|et Indiv|
|000002a0| 69 64 75 61 6c 20 3d 20 | 66 61 6c 73 65 0d 73 65 |idual = |false.se|
|000002b0| 74 20 74 68 65 20 69 6d | 6d 65 64 69 61 74 65 20 |t the im|mediate |
|000002c0| 6f 66 20 73 70 72 69 74 | 65 20 31 38 20 74 6f 20 |of sprit|e 18 to |
|000002d0| 74 72 75 65 0d 73 65 74 | 20 74 68 65 20 69 6d 6d |true.set| the imm|
|000002e0| 65 64 69 61 74 65 20 6f | 66 20 73 70 72 69 74 65 |ediate o|f sprite|
|000002f0| 20 31 39 20 74 6f 20 74 | 72 75 65 0d 77 68 65 6e | 19 to t|rue.when|
|00000300| 20 4b 65 79 64 6f 77 6e | 20 74 68 65 6e 20 43 68 | Keydown| then Ch|
|00000310| 65 63 6b 66 6f 72 51 75 | 69 74 0d 2d 2d 0d 4d 61 |eckforQu|it.--.Ma|
|00000320| 63 72 6f 20 49 6e 64 69 | 76 43 6f 6e 74 0d 67 6c |cro Indi|vCont.gl|
|00000330| 6f 62 61 6c 20 49 6e 64 | 69 76 69 64 75 61 6c 0d |obal Ind|ividual.|
|00000340| 73 65 74 20 49 6e 64 69 | 76 69 64 75 61 6c 20 3d |set Indi|vidual =|
|00000350| 20 74 72 75 65 0d 72 65 | 70 65 61 74 20 77 68 69 | true.re|peat whi|
|00000360| 6c 65 20 74 68 65 20 6d | 6f 75 73 65 64 6f 77 6e |le the m|ousedown|
|00000370| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 67 6f 20 22 |.end rep|eat.go "|
|00000380| 41 74 74 72 61 63 74 20 | 4c 6f 6f 70 22 20 6f 66 |Attract |Loop" of|
|00000390| 20 6d 6f 76 69 65 20 22 | 41 74 74 72 61 63 74 22 | movie "|Attract"|
|000003a0| 0d 2d 2d 0d 4d 61 63 72 | 6f 20 4e 6f 52 65 74 61 |.--.Macr|o NoReta|
|000003b0| 69 6c 0d 47 6c 6f 62 61 | 6c 20 4e 61 6d 65 43 61 |il.Globa|l NameCa|
|000003c0| 73 74 0d 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |st.repea|t while |
|000003d0| 74 68 65 20 6d 6f 75 73 | 65 64 6f 77 6e 0d 65 6e |the mous|edown.en|
|000003e0| 64 20 72 65 70 65 61 74 | 0d 73 65 74 20 74 68 65 |d repeat|.set the|
|000003f0| 20 74 65 78 74 20 6f 66 | 20 63 61 73 74 20 4e 61 | text of| cast Na|
|00000400| 6d 65 43 61 73 74 20 3d | 20 22 79 6f 75 72 20 64 |meCast =| "your d|
|00000410| 65 61 6c 65 72 2e 22 0d | 73 65 74 20 74 68 65 20 |ealer.".|set the |
|00000420| 74 65 78 74 20 6f 66 20 | 63 61 73 74 20 28 4e 61 |text of |cast (Na|
|00000430| 6d 65 43 61 73 74 20 2b | 20 31 29 20 3d 20 22 79 |meCast +| 1) = "y|
|00000440| 6f 75 72 20 64 65 61 6c | 65 72 2e 22 0d 67 6f 20 |our deal|er.".go |
|00000450| 22 41 74 74 72 61 63 74 | 20 4c 6f 6f 70 22 20 6f |"Attract| Loop" o|
|00000460| 66 20 6d 6f 76 69 65 20 | 22 41 74 74 72 61 63 74 |f movie |"Attract|
|00000470| 22 0d 2d 2d 0d 4d 61 63 | 72 6f 20 49 6e 69 74 4e |".--.Mac|ro InitN|
|00000480| 61 6d 65 0d 47 6c 6f 62 | 61 6c 20 46 69 6c 65 2c |ame.Glob|al File,|
|00000490| 20 46 69 6c 65 49 4f 2c | 20 4e 61 6d 65 43 61 73 | FileIO,| NameCas|
|000004a0| 74 2c 20 4c 6f 63 61 74 | 69 6f 6e 2c 20 65 72 72 |t, Locat|ion, err|
|000004b0| 6f 72 63 6f 64 65 0d 73 | 65 74 20 4c 6f 63 61 74 |orcode.s|et Locat|
|000004c0| 69 6f 6e 20 3d 20 22 45 | 78 63 65 6c 2e 44 65 6d |ion = "E|xcel.Dem|
|000004d0| 6f 20 53 63 72 61 74 63 | 68 22 0d 69 66 20 6f 62 |o Scratc|h".if ob|
|000004e0| 6a 65 63 74 70 28 20 46 | 69 6c 65 20 29 20 74 68 |jectp( F|ile ) th|
|000004f0| 65 6e 20 46 69 6c 65 28 | 20 6d 44 69 73 70 6f 73 |en File(| mDispos|
|00000500| 65 20 29 0d 52 65 61 64 | 54 65 78 74 46 69 6c 65 |e ).Read|TextFile|
|00000510| 20 28 4c 6f 63 61 74 69 | 6f 6e 29 0d 69 66 20 6e | (Locati|on).if n|
|00000520| 6f 74 20 6f 62 6a 65 63 | 74 70 28 66 69 6c 65 29 |ot objec|tp(file)|
|00000530| 20 74 68 65 6e 20 53 65 | 74 20 74 68 65 20 74 65 | then Se|t the te|
|00000540| 78 74 20 6f 66 20 63 61 | 73 74 20 4e 61 6d 65 43 |xt of ca|st NameC|
|00000550| 61 73 74 20 3d 20 45 6d | 70 74 79 0d 20 20 20 20 |ast = Em|pty.    |
|00000560| 65 6c 73 65 20 53 65 74 | 20 74 68 65 20 74 65 78 |else Set| the tex|
|00000570| 74 20 6f 66 20 63 61 73 | 74 20 4e 61 6d 65 43 61 |t of cas|t NameCa|
|00000580| 73 74 20 3d 20 66 69 6c | 65 28 6d 72 65 61 64 6c |st = fil|e(mreadl|
|00000590| 69 6e 65 29 20 0d 53 65 | 74 20 74 68 65 20 74 65 |ine) .Se|t the te|
|000005a0| 78 74 20 6f 66 20 63 61 | 73 74 20 28 4e 61 6d 65 |xt of ca|st (Name|
|000005b0| 43 61 73 74 20 2b 20 31 | 29 20 3d 20 45 6d 70 74 |Cast + 1|) = Empt|
|000005c0| 79 0d 69 66 20 6f 62 6a | 65 63 74 70 28 20 46 69 |y.if obj|ectp( Fi|
|000005d0| 6c 65 20 29 20 74 68 65 | 6e 20 46 69 6c 65 28 20 |le ) the|n File( |
|000005e0| 6d 44 69 73 70 6f 73 65 | 20 29 0d 57 61 69 74 66 |mDispose| ).Waitf|
|000005f0| 6f 72 4d 6f 75 73 65 55 | 50 20 74 68 65 20 66 72 |orMouseU|P the fr|
|00000600| 61 6d 65 20 2b 20 31 0d | 57 68 65 6e 20 6b 65 79 |ame + 1.|When key|
|00000610| 64 6f 77 6e 20 74 68 65 | 6e 20 43 68 65 63 6b 4c |down the|n CheckL|
|00000620| 65 6e 67 74 68 0d 2d 2d | 0d 4d 61 63 72 6f 20 43 |ength.--|.Macro C|
|00000630| 68 65 63 6b 4c 65 6e 67 | 74 68 0d 47 6c 6f 62 61 |heckLeng|th.Globa|
|00000640| 6c 20 4e 61 6d 65 43 61 | 73 74 0d 69 66 20 74 68 |l NameCa|st.if th|
|00000650| 65 20 6b 65 79 20 3d 20 | 52 45 54 55 52 4e 20 74 |e key = |RETURN t|
|00000660| 68 65 6e 0d 20 20 20 20 | 64 6f 6e 74 70 61 73 73 |hen.    |dontpass|
|00000670| 65 76 65 6e 74 0d 20 20 | 20 20 43 68 65 63 6b 4e |event.  |  CheckN|
|00000680| 61 6d 65 0d 20 20 20 20 | 65 78 69 74 0d 65 6e 64 |ame.    |exit.end|
|00000690| 20 69 66 0d 69 66 20 6c | 65 6e 67 74 68 28 74 68 | if.if l|ength(th|
|000006a0| 65 20 74 65 78 74 20 6f | 66 20 63 61 73 74 28 4e |e text o|f cast(N|
|000006b0| 61 6d 65 43 61 73 74 29 | 29 20 3e 20 33 37 20 74 |ameCast)|) > 37 t|
|000006c0| 68 65 6e 0d 20 20 20 20 | 69 66 20 74 68 65 20 6b |hen.    |if the k|
|000006d0| 65 79 20 3c 3e 20 42 61 | 63 6b 73 70 61 63 65 20 |ey <> Ba|ckspace |
|000006e0| 74 68 65 6e 20 64 6f 6e | 74 70 61 73 73 65 76 65 |then don|tpasseve|
|000006f0| 6e 74 0d 65 6e 64 20 69 | 66 0d 2d 2d 0d 4d 61 63 |nt.end i|f.--.Mac|
|00000700| 72 6f 20 43 68 65 63 6b | 4e 61 6d 65 0d 67 6c 6f |ro Check|Name.glo|
|00000710| 62 61 6c 20 4e 61 6d 65 | 43 61 73 74 2c 20 52 65 |bal Name|Cast, Re|
|00000720| 74 75 72 6e 69 6e 67 0d | 49 66 20 74 68 65 20 74 |turning.|If the t|
|00000730| 65 78 74 20 6f 66 20 63 | 61 73 74 20 4e 61 6d 65 |ext of c|ast Name|
|00000740| 43 61 73 74 20 3d 20 45 | 6d 70 74 79 20 74 68 65 |Cast = E|mpty the|
|00000750| 6e 20 67 6f 20 22 4e 61 | 6d 65 20 45 72 72 6f 72 |n go "Na|me Error|
|00000760| 22 0d 65 6c 73 65 0d 20 | 20 20 20 53 65 74 20 74 |".else. |   Set t|
|00000770| 68 65 20 74 65 78 74 20 | 6f 66 20 63 61 73 74 20 |he text |of cast |
|00000780| 28 4e 61 6d 65 43 61 73 | 74 20 2b 20 31 29 20 3d |(NameCas|t + 1) =|
|00000790| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 63 61 73 | the tex|t of cas|
|000007a0| 74 20 4e 61 6d 65 43 61 | 73 74 0d 20 20 20 20 57 |t NameCa|st.    W|
|000007b0| 72 69 74 65 4e 61 6d 65 | 0d 20 20 20 20 67 6f 20 |riteName|.    go |
|000007c0| 22 44 69 73 70 6c 61 79 | 20 4e 61 6d 65 22 20 6f |"Display| Name" o|
|000007d0| 66 20 4d 6f 76 69 65 20 | 22 41 74 74 72 61 63 74 |f Movie |"Attract|
|000007e0| 22 0d 20 20 20 20 53 65 | 74 20 52 65 74 75 72 6e |".    Se|t Return|
|000007f0| 69 6e 67 20 3d 20 22 44 | 69 73 70 6c 61 79 20 4e |ing = "D|isplay N|
|00000800| 61 6d 65 22 0d 20 20 20 | 20 77 68 65 6e 20 4b 65 |ame".   | when Ke|
|00000810| 79 64 6f 77 6e 20 74 68 | 65 6e 20 43 68 65 63 6b |ydown th|en Check|
|00000820| 66 6f 72 51 75 69 74 0d | 65 6e 64 20 69 66 0d 2d |forQuit.|end if.-|
|00000830| 2d 0d 6d 61 63 72 6f 20 | 57 72 69 74 65 4e 61 6d |-.macro |WriteNam|
|00000840| 65 0d 20 20 20 67 6c 6f | 62 61 6c 20 46 69 6c 65 |e.   glo|bal File|
|00000850| 2c 20 46 69 6c 65 49 4f | 2c 20 4e 61 6d 65 43 61 |, FileIO|, NameCa|
|00000860| 73 74 2c 20 4c 6f 63 61 | 74 69 6f 6e 0d 20 20 20 |st, Loca|tion.   |
|00000870| 20 73 65 74 20 52 65 74 | 61 69 6c 65 72 4e 61 6d | set Ret|ailerNam|
|00000880| 65 20 3d 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |e = the |text of |
|00000890| 43 61 73 74 20 4e 61 6d | 65 43 61 73 74 0d 20 20 |Cast Nam|eCast.  |
|000008a0| 20 20 69 66 20 6f 62 6a | 65 63 74 70 28 20 46 69 |  if obj|ectp( Fi|
|000008b0| 6c 65 20 29 20 74 68 65 | 6e 20 46 69 6c 65 28 20 |le ) the|n File( |
|000008c0| 6d 44 69 73 70 6f 73 65 | 20 29 0d 20 20 20 20 77 |mDispose| ).    w|
|000008d0| 72 69 74 65 54 65 78 74 | 46 69 6c 65 20 28 4c 6f |riteText|File (Lo|
|000008e0| 63 61 74 69 6f 6e 29 0d | 20 20 20 20 77 72 69 74 |cation).|    writ|
|000008f0| 65 53 74 72 69 6e 67 28 | 52 65 74 61 69 6c 65 72 |eString(|Retailer|
|00000900| 4e 61 6d 65 20 20 26 20 | 72 65 74 75 72 6e 29 0d |Name  & |return).|
|00000910| 20 20 20 20 69 66 20 6f | 62 6a 65 63 74 70 28 20 |    if o|bjectp( |
|00000920| 46 69 6c 65 20 29 20 74 | 68 65 6e 20 46 69 6c 65 |File ) t|hen File|
|00000930| 28 20 6d 44 69 73 70 6f | 73 65 20 29 0d 2d 2d 0d |( mDispo|se ).--.|
|00000940| 4d 61 63 72 6f 20 53 6f | 75 6e 64 53 65 74 0d 73 |Macro So|undSet.s|
|00000950| 65 74 20 74 68 65 20 73 | 6f 75 6e 64 45 6e 61 62 |et the s|oundEnab|
|00000960| 6c 65 64 20 74 6f 20 74 | 72 75 65 0d 69 66 20 74 |led to t|rue.if t|
|00000970| 68 65 20 6b 65 79 20 3d | 20 22 30 22 20 74 68 65 |he key =| "0" the|
|00000980| 6e 20 20 73 65 74 20 74 | 68 65 20 73 6f 75 6e 64 |n  set t|he sound|
|00000990| 45 6e 61 62 6c 65 64 20 | 74 6f 20 66 61 6c 73 65 |Enabled |to false|
|000009a0| 0d 69 66 20 74 68 65 20 | 6b 65 79 20 3d 20 22 31 |.if the |key = "1|
|000009b0| 22 20 74 68 65 6e 20 20 | 73 65 74 20 74 68 65 20 |" then  |set the |
|000009c0| 73 6f 75 6e 64 6c 65 76 | 65 6c 20 3d 20 31 0d 69 |soundlev|el = 1.i|
|000009d0| 66 20 74 68 65 20 6b 65 | 79 20 3d 20 22 32 22 20 |f the ke|y = "2" |
|000009e0| 74 68 65 6e 20 20 73 65 | 74 20 74 68 65 20 73 6f |then  se|t the so|
|000009f0| 75 6e 64 6c 65 76 65 6c | 20 3d 20 32 0d 69 66 20 |undlevel| = 2.if |
|00000a00| 74 68 65 20 6b 65 79 20 | 3d 20 22 33 22 20 74 68 |the key |= "3" th|
|00000a10| 65 6e 20 20 73 65 74 20 | 74 68 65 20 73 6f 75 6e |en  set |the soun|
|00000a20| 64 6c 65 76 65 6c 20 3d | 20 33 0d 69 66 20 74 68 |dlevel =| 3.if th|
|00000a30| 65 20 6b 65 79 20 3d 20 | 22 34 22 20 74 68 65 6e |e key = |"4" then|
|00000a40| 20 20 73 65 74 20 74 68 | 65 20 73 6f 75 6e 64 6c |  set th|e soundl|
|00000a50| 65 76 65 6c 20 3d 20 34 | 0d 69 66 20 74 68 65 20 |evel = 4|.if the |
|00000a60| 6b 65 79 20 3d 20 22 35 | 22 20 74 68 65 6e 20 20 |key = "5|" then  |
|00000a70| 73 65 74 20 74 68 65 20 | 73 6f 75 6e 64 6c 65 76 |set the |soundlev|
|00000a80| 65 6c 20 3d 20 35 0d 69 | 66 20 74 68 65 20 6b 65 |el = 5.i|f the ke|
|00000a90| 79 20 3d 20 22 36 22 20 | 74 68 65 6e 20 20 73 65 |y = "6" |then  se|
|00000aa0| 74 20 74 68 65 20 73 6f | 75 6e 64 6c 65 76 65 6c |t the so|undlevel|
|00000ab0| 20 3d 20 36 0d 69 66 20 | 74 68 65 20 6b 65 79 20 | = 6.if |the key |
|00000ac0| 3d 20 22 37 22 20 74 68 | 65 6e 20 20 73 65 74 20 |= "7" th|en  set |
|00000ad0| 74 68 65 20 73 6f 75 6e | 64 6c 65 76 65 6c 20 3d |the soun|dlevel =|
|00000ae0| 20 37 0d 2d 2d 0d 4d 61 | 63 72 6f 20 43 68 65 63 | 7.--.Ma|cro Chec|
|00000af0| 6b 66 6f 72 51 75 69 74 | 0d 67 6c 6f 62 61 6c 20 |kforQuit|.global |
|00000b00| 50 72 65 76 56 6f 6c 2c | 20 50 72 65 76 44 65 70 |PrevVol,| PrevDep|
|00000b10| 74 68 0d 53 6f 75 6e 64 | 53 65 74 0d 69 66 20 74 |th.Sound|Set.if t|
|00000b20| 68 65 20 63 6f 6d 6d 61 | 6e 64 64 6f 77 6e 20 74 |he comma|nddown t|
|00000b30| 68 65 6e 0d 20 20 20 20 | 20 20 20 49 66 20 74 68 |hen.    |   If th|
|00000b40| 65 20 6b 65 79 20 3d 20 | 22 2e 22 20 74 68 65 6e |e key = |"." then|
|00000b50| 0d 20 20 20 20 20 20 20 | 20 20 20 20 67 6f 20 22 |.       |    go "|
|00000b60| 71 75 69 74 66 72 61 6d | 65 22 0d 20 20 20 20 20 |quitfram|e".     |
|00000b70| 20 20 20 20 20 20 53 65 | 74 20 74 68 65 20 73 6f |      Se|t the so|
|00000b80| 75 6e 64 6c 65 76 65 6c | 20 3d 20 50 72 65 76 56 |undlevel| = PrevV|
|00000b90| 6f 6c 0d 20 20 20 20 20 | 20 20 20 20 20 20 53 65 |ol.     |      Se|
|00000ba0| 74 20 74 68 65 20 63 6f | 6c 6f 72 64 65 70 74 68 |t the co|lordepth|
|00000bb0| 20 3d 20 50 72 65 76 44 | 65 70 74 68 0d 20 20 20 | = PrevD|epth.   |
|00000bc0| 20 20 20 20 20 20 20 20 | 20 71 75 69 74 0d 20 20 |        | quit.  |
|00000bd0| 20 20 65 6e 64 20 69 66 | 0d 65 6e 64 20 69 66 0d |  end if|.end if.|
|00000be0| 2d 2d 0d 4d 61 63 72 6f | 20 51 75 69 74 74 69 6e |--.Macro| Quittin|
|00000bf0| 67 0d 67 6c 6f 62 61 6c | 20 50 72 65 76 56 6f 6c |g.global| PrevVol|
|00000c00| 2c 20 50 72 65 76 44 65 | 70 74 68 2c 20 45 6e 74 |, PrevDe|pth, Ent|
|00000c10| 69 72 65 0d 69 66 20 65 | 6e 74 69 72 65 20 3d 20 |ire.if e|ntire = |
|00000c20| 74 72 75 65 20 74 68 65 | 6e 0d 20 20 20 20 67 6f |true the|n.    go|
|00000c30| 20 22 71 75 69 74 66 72 | 61 6d 65 22 0d 20 20 20 | "quitfr|ame".   |
|00000c40| 20 53 65 74 20 74 68 65 | 20 73 6f 75 6e 64 6c 65 | Set the| soundle|
|00000c50| 76 65 6c 20 3d 20 50 72 | 65 76 56 6f 6c 0d 20 20 |vel = Pr|evVol.  |
|00000c60| 20 20 53 65 74 20 74 68 | 65 20 63 6f 6c 6f 72 64 |  Set th|e colord|
|00000c70| 65 70 74 68 20 3d 20 50 | 72 65 76 44 65 70 74 68 |epth = P|revDepth|
|00000c80| 0d 20 20 20 20 71 75 69 | 74 0d 65 6c 73 65 20 67 |.    qui|t.else g|
|00000c90| 6f 20 22 49 6e 64 20 53 | 65 63 74 69 6f 6e 22 20 |o "Ind S|ection" |
|00000ca0| 6f 66 20 6d 6f 76 69 65 | 20 22 41 74 74 72 61 63 |of movie| "Attrac|
|00000cb0| 74 22 0d 0d 4d 61 63 72 | 6f 20 49 6e 69 74 53 65 |t"..Macr|o InitSe|
|00000cc0| 63 74 69 6f 6e 0d 47 6c | 6f 62 61 6c 20 45 6e 74 |ction.Gl|obal Ent|
|00000cd0| 69 72 65 2c 20 6d 69 6e | 75 74 65 2c 41 6e 61 6c |ire, min|ute,Anal|
|00000ce0| 79 73 69 73 2c 50 72 65 | 73 65 6e 74 61 74 69 6f |ysis,Pre|sentatio|
|00000cf0| 6e 73 2c 73 79 73 53 65 | 76 65 6e 2c 20 49 6e 64 |ns,sysSe|ven, Ind|
|00000d00| 69 76 69 64 75 61 6c 0d | 73 65 74 20 73 74 61 72 |ividual.|set star|
|00000d10| 74 20 3d 20 36 0d 72 65 | 70 65 61 74 20 77 68 69 |t = 6.re|peat whi|
|00000d20| 6c 65 20 73 74 61 72 74 | 20 3c 3d 20 31 30 0d 20 |le start| <= 10. |
|00000d30| 20 20 20 73 65 74 20 74 | 68 65 20 70 75 70 70 65 |   set t|he puppe|
|00000d40| 74 20 6f 66 20 73 70 72 | 69 74 65 20 28 73 74 61 |t of spr|ite (sta|
|00000d50| 72 74 20 2b 20 35 29 20 | 3d 20 74 72 75 65 0d 20 |rt + 5) |= true. |
|00000d60| 20 20 20 73 65 74 20 74 | 68 65 20 69 6d 6d 65 64 |   set t|he immed|
|00000d70| 69 61 74 65 20 6f 66 20 | 73 70 72 69 74 65 20 73 |iate of |sprite s|
|00000d80| 74 61 72 74 20 3d 20 74 | 72 75 65 0d 20 20 20 20 |tart = t|rue.    |
|00000d90| 73 65 74 20 73 74 61 72 | 74 20 3d 20 73 74 61 72 |set star|t = star|
|00000da0| 74 20 2b 20 31 0d 65 6e | 64 20 72 65 70 65 61 74 |t + 1.en|d repeat|
|00000db0| 0d 69 66 20 49 6e 64 69 | 76 69 64 75 61 6c 20 3d |.if Indi|vidual =|
|00000dc0| 20 74 72 75 65 20 74 68 | 65 6e 20 73 65 74 20 74 | true th|en set t|
|00000dd0| 68 65 20 70 75 70 70 65 | 74 20 6f 66 20 73 70 72 |he puppe|t of spr|
|00000de0| 69 74 65 20 31 36 20 3d | 20 74 72 75 65 0d 49 6e |ite 16 =| true.In|
|00000df0| 69 74 4d 65 6e 75 0d 0d | 4d 61 63 72 6f 20 49 6e |itMenu..|Macro In|
|00000e00| 69 74 41 74 74 72 61 63 | 74 4c 6f 6f 70 0d 47 6c |itAttrac|tLoop.Gl|
|00000e10| 6f 62 61 6c 20 45 6e 74 | 69 72 65 2c 20 6d 69 6e |obal Ent|ire, min|
|00000e20| 75 74 65 2c 41 6e 61 6c | 79 73 69 73 2c 50 72 65 |ute,Anal|ysis,Pre|
|00000e30| 73 65 6e 74 61 74 69 6f | 6e 73 2c 73 79 73 53 65 |sentatio|ns,sysSe|
|00000e40| 76 65 6e 2c 20 69 6e 64 | 69 76 69 64 75 61 6c 0d |ven, ind|ividual.|
|00000e50| 57 68 65 6e 20 74 69 6d | 65 6f 75 74 20 74 68 65 |When tim|eout the|
|00000e60| 6e 0d 73 65 74 20 45 6e | 74 69 72 65 20 3d 20 46 |n.set En|tire = F|
|00000e70| 61 6c 73 65 0d 73 65 74 | 20 6d 69 6e 75 74 65 20 |alse.set| minute |
|00000e80| 3d 20 66 61 6c 73 65 0d | 73 65 74 20 41 6e 61 6c |= false.|set Anal|
|00000e90| 79 73 69 73 20 3d 20 66 | 61 6c 73 65 0d 73 65 74 |ysis = f|alse.set|
|00000ea0| 20 50 72 65 73 65 6e 74 | 61 74 69 6f 6e 73 20 3d | Present|ations =|
|00000eb0| 20 66 61 6c 73 65 0d 73 | 65 74 20 73 79 73 53 65 | false.s|et sysSe|
|00000ec0| 76 65 6e 20 3d 20 66 61 | 6c 73 65 0d 73 65 74 20 |ven = fa|lse.set |
|00000ed0| 74 68 65 20 69 6d 6d 65 | 64 69 61 74 65 20 6f 66 |the imme|diate of|
|00000ee0| 20 73 70 72 69 74 65 20 | 31 38 20 3d 20 74 72 75 | sprite |18 = tru|
|00000ef0| 65 0d 73 65 74 20 74 68 | 65 20 69 6d 6d 65 64 69 |e.set th|e immedi|
|00000f00| 61 74 65 20 6f 66 20 73 | 70 72 69 74 65 20 31 39 |ate of s|prite 19|
|00000f10| 20 3d 20 74 72 75 65 0d | 69 66 20 69 6e 64 69 76 | = true.|if indiv|
|00000f20| 69 64 75 61 6c 20 3d 20 | 74 72 75 65 20 74 68 65 |idual = |true the|
|00000f30| 6e 20 57 68 65 6e 20 6d | 6f 75 73 65 64 6f 77 6e |n When m|ousedown|
|00000f40| 20 74 68 65 6e 20 67 6f | 20 22 4e 61 76 49 6e 64 | then go| "NavInd|
|00000f50| 22 0d 20 20 20 20 65 6c | 73 65 20 57 68 65 6e 20 |".    el|se When |
|00000f60| 6d 6f 75 73 65 64 6f 77 | 6e 20 74 68 65 6e 20 67 |mousedow|n then g|
|00000f70| 6f 20 22 4e 61 76 61 67 | 61 74 69 6f 6e 22 0d 77 |o "Navag|ation".w|
|00000f80| 68 65 6e 20 4b 65 79 64 | 6f 77 6e 20 74 68 65 6e |hen Keyd|own then|
|00000f90| 20 43 68 65 63 6b 66 6f | 72 51 75 69 74 0d 0d 4d | Checkfo|rQuit..M|
|00000fa0| 61 63 72 6f 20 44 65 49 | 6e 69 74 53 65 63 74 69 |acro DeI|nitSecti|
|00000fb0| 6f 6e 20 57 68 65 72 65 | 74 6f 0d 73 65 74 20 73 |on Where|to.set s|
|00000fc0| 74 61 72 74 20 3d 20 31 | 31 0d 72 65 70 65 61 74 |tart = 1|1.repeat|
|00000fd0| 20 77 68 69 6c 65 20 73 | 74 61 72 74 20 3c 3d 20 | while s|tart <= |
|00000fe0| 31 36 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 70 |16.    s|et the p|
|00000ff0| 75 70 70 65 74 20 6f 66 | 20 73 70 72 69 74 65 20 |uppet of| sprite |
|00001000| 73 74 61 72 74 20 3d 20 | 66 61 6c 73 65 0d 20 20 |start = |false.  |
|00001010| 20 20 73 65 74 20 73 74 | 61 72 74 20 3d 20 73 74 |  set st|art = st|
|00001020| 61 72 74 20 2b 20 31 0d | 65 6e 64 20 72 65 70 65 |art + 1.|end repe|
|00001030| 61 74 0d 67 6f 20 57 68 | 65 72 65 74 6f 0d 0d 4d |at.go Wh|ereto..M|
|00001040| 61 63 72 6f 20 53 68 6f | 77 53 65 63 74 69 6f 6e |acro Sho|wSection|
|00001050| 0d 67 6c 6f 62 61 6c 20 | 49 6e 64 69 76 69 64 75 |.global |Individu|
|00001060| 61 6c 0d 69 66 20 49 6e | 64 69 76 69 64 75 61 6c |al.if In|dividual|
|00001070| 20 3d 20 74 72 75 65 20 | 74 68 65 6e 20 67 6f 20 | = true |then go |
|00001080| 22 49 6e 64 20 53 65 63 | 74 69 6f 6e 22 0d 20 65 |"Ind Sec|tion". e|
|00001090| 6c 73 65 20 67 6f 20 22 | 42 79 20 73 65 63 74 69 |lse go "|By secti|
|000010a0| 6f 6e 22 0d 20 20 20 0d | 0d 4d 61 63 72 6f 20 49 |on".   .|.Macro I|
|000010b0| 6e 69 74 4d 65 6e 75 0d | 67 6c 6f 62 61 6c 20 52 |nitMenu.|global R|
|000010c0| 65 74 75 72 6e 69 6e 67 | 0d 73 65 74 20 74 68 65 |eturning|.set the|
|000010d0| 20 74 69 6d 65 6f 75 74 | 6c 65 6e 67 74 68 20 3d | timeout|length =|
|000010e0| 20 33 36 30 30 20 2a 20 | 32 0d 77 68 65 6e 20 4d | 3600 * |2.when M|
|000010f0| 6f 75 73 65 64 6f 77 6e | 20 74 68 65 6e 0d 77 68 |ousedown| then.wh|
|00001100| 65 6e 20 6b 65 79 64 6f | 77 6e 20 74 68 65 6e 20 |en keydo|wn then |
|00001110| 63 68 65 63 6b 66 6f 72 | 71 75 69 74 0d 57 68 65 |checkfor|quit.Whe|
|00001120| 6e 20 74 69 6d 65 6f 75 | 74 20 74 68 65 6e 20 44 |n timeou|t then D|
|00001130| 65 49 6e 69 74 53 65 63 | 74 69 6f 6e 20 28 52 65 |eInitSec|tion (Re|
|00001140| 74 75 72 6e 69 6e 67 29 | 0d 0d 4d 61 63 72 6f 20 |turning)|..Macro |
|00001150| 4e 61 76 61 67 61 74 69 | 6f 6e 20 74 68 65 6d 6f |Navagati|on themo|
|00001160| 76 69 65 2c 20 6d 6f 76 | 69 65 6e 75 6d 0d 47 6c |vie, mov|ienum.Gl|
|00001170| 6f 62 61 6c 20 45 6e 74 | 69 72 65 2c 20 6d 69 6e |obal Ent|ire, min|
|00001180| 75 74 65 2c 20 50 72 65 | 73 65 6e 74 61 74 69 6f |ute, Pre|sentatio|
|00001190| 6e 73 2c 20 41 6e 61 6c | 79 73 69 73 2c 20 53 79 |ns, Anal|ysis, Sy|
|000011a0| 73 53 65 76 65 6e 0d 57 | 68 65 6e 20 74 69 6d 65 |sSeven.W|hen time|
|000011b0| 6f 75 74 20 74 68 65 6e | 0d 69 66 20 4d 6f 76 69 |out then|.if Movi|
|000011c0| 65 6e 75 6d 20 3d 20 31 | 20 74 68 65 6e 20 73 65 |enum = 1| then se|
|000011d0| 74 20 45 6e 74 69 72 65 | 20 3d 20 74 72 75 65 0d |t Entire| = true.|
|000011e0| 65 6c 73 65 0d 20 20 20 | 20 69 66 20 4d 6f 76 69 |else.   | if Movi|
|000011f0| 65 6e 75 6d 20 3d 20 32 | 20 74 68 65 6e 20 53 65 |enum = 2| then Se|
|00001200| 74 20 6d 69 6e 75 74 65 | 20 3d 20 74 72 75 65 0d |t minute| = true.|
|00001210| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 20 69 66 |        |else  if|
|00001220| 20 4d 6f 76 69 65 6e 75 | 6d 20 3d 20 33 20 74 68 | Movienu|m = 3 th|
|00001230| 65 6e 20 53 65 74 20 41 | 6e 61 6c 79 73 69 73 20 |en Set A|nalysis |
|00001240| 20 3d 20 74 72 75 65 0d | 20 20 20 20 20 20 20 20 | = true.|        |
|00001250| 20 20 20 20 65 6c 73 65 | 20 20 69 66 20 4d 6f 76 |    else|  if Mov|
|00001260| 69 65 6e 75 6d 20 3d 20 | 34 20 74 68 65 6e 20 53 |ienum = |4 then S|
|00001270| 65 74 20 50 72 65 73 65 | 6e 74 61 74 69 6f 6e 73 |et Prese|ntations|
|00001280| 20 3d 20 74 72 75 65 0d | 20 20 20 20 20 20 20 20 | = true.|        |
|00001290| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 20 69 66 |        |else  if|
|000012a0| 20 4d 6f 76 69 65 6e 75 | 6d 20 3d 20 35 20 74 68 | Movienu|m = 5 th|
|000012b0| 65 6e 20 53 65 74 20 53 | 79 73 53 65 76 65 6e 20 |en Set S|ysSeven |
|000012c0| 3d 20 74 72 75 65 0d 65 | 6e 64 20 69 66 0d 73 65 |= true.e|nd if.se|
|000012d0| 74 20 74 68 65 20 43 61 | 73 74 6e 75 6d 20 6f 66 |t the Ca|stnum of|
|000012e0| 20 73 70 72 69 74 65 20 | 28 4d 6f 76 69 65 6e 75 | sprite |(Movienu|
|000012f0| 6d 20 2b 20 39 29 20 3d | 20 41 31 33 0d 75 70 64 |m + 9) =| A13.upd|
|00001300| 61 74 65 73 74 61 67 65 | 0d 67 6f 20 4d 6f 76 69 |atestage|.go Movi|
|00001310| 65 20 74 68 65 6d 6f 76 | 69 65 0d 0d 4d 61 63 72 |e themov|ie..Macr|
|00001320| 6f 20 4f 72 64 65 72 46 | 6f 72 6d 20 62 6f 78 65 |o OrderF|orm boxe|
|00001330| 73 0d 73 65 74 20 74 68 | 65 20 70 75 70 70 65 74 |s.set th|e puppet|
|00001340| 20 6f 66 20 73 70 72 69 | 74 65 20 31 36 20 3d 20 | of spri|te 16 = |
|00001350| 74 72 75 65 0d 73 65 74 | 20 74 68 65 20 43 61 73 |true.set| the Cas|
|00001360| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 31 |tnum of |sprite 1|
|00001370| 36 20 3d 20 41 31 33 0d | 72 65 70 65 61 74 20 77 |6 = A13.|repeat w|
|00001380| 68 69 6c 65 20 74 68 65 | 20 6d 6f 75 73 65 64 6f |hile the| mousedo|
|00001390| 77 6e 0d 20 20 20 20 67 | 6f 20 74 68 65 20 66 72 |wn.    g|o the fr|
|000013a0| 61 6d 65 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 69 |ame.end |repeat.i|
|000013b0| 66 20 62 6f 78 65 73 20 | 3d 20 74 72 75 65 20 74 |f boxes |= true t|
|000013c0| 68 65 6e 20 67 6f 20 22 | 6f 72 64 65 72 22 0d 20 |hen go "|order". |
|000013d0| 20 20 20 65 6c 73 65 20 | 67 6f 20 22 6f 72 64 65 |   else |go "orde|
|000013e0| 72 69 6e 64 22 0d 2d 2d | 0d 4d 61 63 72 6f 20 4d |rind".--|.Macro M|
|000013f0| 6f 76 69 65 4e 61 76 61 | 67 61 74 69 6f 6e 20 74 |ovieNava|gation t|
|00001400| 68 65 6d 6f 76 69 65 2c | 20 74 68 65 66 72 61 6d |hemovie,| thefram|
|00001410| 65 0d 47 6c 6f 62 61 6c | 20 45 6e 74 69 72 65 2c |e.Global| Entire,|
|00001420| 69 6e 64 69 76 69 64 75 | 61 6c 0d 69 66 20 45 6e |individu|al.if En|
|00001430| 74 69 72 65 20 3d 20 54 | 72 75 65 20 74 68 65 6e |tire = T|rue then|
|00001440| 0d 20 20 20 20 67 6f 20 | 22 45 6e 64 46 72 61 6d |.    go |"EndFram|
|00001450| 65 22 0d 65 6c 73 65 0d | 20 20 20 20 69 66 20 69 |e".else.|    if i|
|00001460| 6e 64 69 76 69 64 75 61 | 6c 20 3d 20 74 72 75 65 |ndividua|l = true|
|00001470| 20 74 68 65 6e 20 67 6f | 20 22 69 6e 64 20 53 65 | then go| "ind Se|
|00001480| 63 74 69 6f 6e 22 20 6f | 66 20 6d 6f 76 69 65 20 |ction" o|f movie |
|00001490| 22 61 74 74 72 61 63 74 | 22 0d 20 20 20 20 65 6c |"attract|".    el|
|000014a0| 73 65 20 67 6f 20 22 42 | 79 20 53 65 63 74 69 6f |se go "B|y Sectio|
|000014b0| 6e 22 20 6f 66 20 6d 6f | 76 69 65 20 22 41 74 74 |n" of mo|vie "Att|
|000014c0| 72 61 63 74 22 0d 20 20 | 20 20 73 65 74 20 74 68 |ract".  |  set th|
|000014d0| 65 20 69 6d 6d 65 64 69 | 61 74 65 20 6f 66 20 73 |e immedi|ate of s|
|000014e0| 70 72 69 74 65 20 31 38 | 20 3d 20 74 72 75 65 0d |prite 18| = true.|
|000014f0| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 6d 6d 65 |    set |the imme|
|00001500| 64 69 61 74 65 20 6f 66 | 20 73 70 72 69 74 65 20 |diate of| sprite |
|00001510| 31 39 20 3d 20 74 72 75 | 65 0d 65 6e 64 20 69 66 |19 = tru|e.end if|
|00001520| 0d 2d 2d 0d 6d 61 63 72 | 6f 20 63 68 65 63 6b 45 |.--.macr|o checkE|
|00001530| 72 72 6f 72 0d 20 20 20 | 20 67 6c 6f 62 61 6c 20 |rror.   | global |
|00001540| 74 68 65 50 72 6f 62 6c | 65 6d 0d 20 20 20 20 69 |theProbl|em.    i|
|00001550| 66 20 74 68 65 50 72 6f | 62 6c 65 6d 20 3d 20 2d |f thePro|blem = -|
|00001560| 34 33 20 74 68 65 6e 20 | 65 78 69 74 20 20 2d 2d |43 then |exit  --|
|00001570| 20 20 74 68 65 20 75 73 | 65 72 20 63 6c 69 63 6b |  the us|er click|
|00001580| 65 64 20 43 61 6e 63 65 | 6c 3b 20 6e 6f 20 6e 65 |ed Cance|l; no ne|
|00001590| 65 64 20 74 6f 20 61 6c | 65 72 74 20 74 68 65 6d |ed to al|ert them|
|000015a0| 0d 20 20 20 20 65 6c 73 | 65 20 61 6c 65 72 74 20 |.    els|e alert |
|000015b0| 22 55 6e 61 62 6c 65 20 | 74 6f 20 61 63 63 65 70 |"Unable |to accep|
|000015c0| 74 20 6e 61 6d 65 2e 20 | 55 6e 6c 6f 63 6b 20 79 |t name. |Unlock y|
|000015d0| 6f 75 72 20 64 69 73 6b | 2e 22 0d 20 20 20 20 51 |our disk|.".    Q|
|000015e0| 75 69 74 0d 2d 2d 0d 6d | 61 63 72 6f 20 72 65 61 |uit.--.m|acro rea|
|000015f0| 64 54 65 78 74 46 69 6c | 65 20 46 69 6c 65 6e 61 |dTextFil|e Filena|
|00001600| 6d 65 0d 20 20 67 6c 6f | 62 61 6c 20 66 69 6c 65 |me.  glo|bal file|
|00001610| 2c 20 46 69 6c 65 49 4f | 0d 20 20 73 65 74 20 66 |, FileIO|.  set f|
|00001620| 69 6c 65 20 3d 20 46 69 | 6c 65 49 4f 28 6d 4e 65 |ile = Fi|leIO(mNe|
|00001630| 77 2c 20 22 72 65 61 64 | 22 2c 20 46 69 6c 65 6e |w, "read|", Filen|
|00001640| 61 6d 65 29 0d 2d 2d 0d | 6d 61 63 72 6f 20 77 72 |ame).--.|macro wr|
|00001650| 69 74 65 54 65 78 74 46 | 69 6c 65 20 46 69 6c 65 |iteTextF|ile File|
|00001660| 6e 61 6d 65 0d 20 20 20 | 20 67 6c 6f 62 61 6c 20 |name.   | global |
|00001670| 66 69 6c 65 2c 20 46 69 | 6c 65 49 4f 2c 20 74 68 |file, Fi|leIO, th|
|00001680| 65 50 72 6f 62 6c 65 6d | 0d 20 20 20 73 65 74 20 |eProblem|.   set |
|00001690| 66 69 6c 65 20 3d 20 46 | 69 6c 65 49 4f 28 6d 4e |file = F|ileIO(mN|
|000016a0| 65 77 2c 20 22 77 72 69 | 74 65 22 2c 46 69 6c 65 |ew, "wri|te",File|
|000016b0| 6e 61 6d 65 29 0d 20 20 | 20 20 69 66 20 6e 6f 74 |name).  |  if not|
|000016c0| 20 6f 62 6a 65 63 74 70 | 28 20 66 69 6c 65 20 29 | objectp|( file )|
|000016d0| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 20 20 73 | then . |       s|
|000016e0| 65 74 20 74 68 65 50 72 | 6f 62 6c 65 6d 20 3d 20 |et thePr|oblem = |
|000016f0| 73 74 72 69 6e 67 28 20 | 66 69 6c 65 20 29 0d 20 |string( |file ). |
|00001700| 20 20 20 20 20 20 20 63 | 68 65 63 6b 45 72 72 6f |       c|heckErro|
|00001710| 72 0d 20 20 20 20 20 20 | 20 20 65 78 69 74 0d 20 |r.      |  exit. |
|00001720| 20 20 20 65 6e 64 20 69 | 66 0d 0d 0d 2d 2d 0d 6d |   end i|f...--.m|
|00001730| 61 63 72 6f 20 77 72 69 | 74 65 53 74 72 69 6e 67 |acro wri|teString|
|00001740| 20 74 68 65 73 74 72 69 | 6e 67 0d 20 20 67 6c 6f | thestri|ng.  glo|
|00001750| 62 61 6c 20 66 69 6c 65 | 2c 20 46 69 6c 65 49 4f |bal file|, FileIO|
|00001760| 0d 20 20 66 69 6c 65 28 | 6d 57 72 69 74 65 53 74 |.  file(|mWriteSt|
|00001770| 72 69 6e 67 2c 20 74 68 | 65 73 74 72 69 6e 67 29 |ring, th|estring)|
|00001780| 0d 2d 2d 0d 00 71 00 00 | 00 00 00 0c 00 0a 00 03 |.--..q..|........|
|00001790| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 09 00 0c |........|........|
|000017a0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 14 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 1f 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|000017d0| 00 00 00 00 00 00 00 00 | 00 20 00 0c 00 0a 00 03 |........|. ......|
|000017e0| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 8b 00 0c |........|........|
|000017f0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 8c 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001810| 00 00 00 00 00 95 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001820| 00 00 00 00 00 00 00 00 | 00 9e 00 0c 00 0a 00 03 |........|........|
|00001830| 00 00 00 09 00 00 00 00 | 00 00 00 00 00 a9 00 0c |........|........|
|00001840| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 aa 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001860| 00 00 00 00 01 16 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 01 17 00 0c 00 0a 00 03 |........|........|
|00001880| 00 00 00 09 00 00 00 00 | 00 00 00 00 01 1d 00 0c |........|........|
|00001890| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 01 2c 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.,......|........|
|000018b0| 00 00 00 00 01 6d 00 0c | 00 0a 00 03 01 00 00 09 |.....m..|........|
|000018c0| 00 00 00 00 00 00 00 00 | 01 78 00 0c 00 0a 00 03 |........|.x......|
|000018d0| 00 00 00 09 00 00 00 00 | 00 00 00 00 03 02 00 0c |........|........|
|000018e0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 03 0e 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001900| 00 00 00 00 03 18 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001910| 00 00 00 00 00 00 00 00 | 03 21 00 0c 00 0a 00 03 |........|.!......|
|00001920| 00 00 00 09 00 00 00 00 | 00 00 00 00 03 9e 00 0c |........|........|
|00001930| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001940| 03 a7 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001950| 00 00 00 00 04 6f 00 0c | 00 0a 00 03 01 00 00 09 |.....o..|........|
|00001960| 00 00 00 00 00 00 00 00 | 04 78 00 0c 00 0a 00 03 |........|.x......|
|00001970| 00 00 00 09 00 00 00 00 | 00 00 00 00 04 f8 00 0c |........|........|
|00001980| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 05 05 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 05 df 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 05 ee 00 0c 00 0a 00 03 |........|........|
|000019c0| 00 00 00 09 00 00 00 00 | 00 00 00 00 05 fb 00 0c |........|........|
|000019d0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 05 fc 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 06 0e 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001a00| 00 00 00 00 00 00 00 00 | 06 1a 00 0c 00 0a 00 03 |........|........|
|00001a10| 00 00 00 09 00 00 00 00 | 00 00 00 00 06 1c 00 0c |........|........|
|00001a20| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001a30| 06 1d 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 06 23 00 0c | 00 0a 00 03 01 00 00 09 |.....#..|........|
|00001a50| 00 00 00 00 00 00 00 00 | 06 2f 00 0c 00 0a 00 03 |........|./......|
|00001a60| 00 00 00 09 00 00 00 00 | 00 00 00 00 06 6e 00 0c |........|.....n..|
|00001a70| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 06 7c 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.|......|........|
|00001a90| 00 00 00 00 06 87 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 06 88 00 0c 00 0a 00 03 |........|........|
|00001ab0| 00 00 00 09 00 00 00 00 | 00 00 00 00 06 f0 00 0c |........|........|
|00001ac0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 06 f1 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 06 f7 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 07 01 00 0c 00 0a 00 03 |........|........|
|00001b00| 00 00 00 09 00 00 00 00 | 00 00 00 00 07 07 00 0c |........|........|
|00001b10| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 07 08 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001b30| 00 00 00 00 07 1b 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 07 1c 00 0c 00 0a 00 03 |........|........|
|00001b50| 00 00 00 09 00 00 00 00 | 00 00 00 00 07 a3 00 0c |........|........|
|00001b60| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 07 ac 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001b80| 00 00 00 00 08 0f 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001b90| 00 00 00 00 00 00 00 00 | 08 1b 00 0c 00 0a 00 03 |........|........|
|00001ba0| 00 00 00 09 00 00 00 00 | 00 00 00 00 08 2c 00 0c |........|.....,..|
|00001bb0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001bc0| 08 39 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.9......|........|
|00001bd0| 00 00 00 00 08 c3 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001be0| 00 00 00 00 00 00 00 00 | 08 d1 00 0c 00 0a 00 03 |........|........|
|00001bf0| 00 00 00 09 00 00 00 00 | 00 00 00 00 08 e0 00 0c |........|........|
|00001c00| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001c10| 08 eb 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001c20| 00 00 00 00 09 3a 00 0c | 00 0a 00 03 01 00 00 09 |.....:..|........|
|00001c30| 00 00 00 00 00 00 00 00 | 09 43 00 0c 00 0a 00 03 |........|.C......|
|00001c40| 00 00 00 09 00 00 00 00 | 00 00 00 00 0a e0 00 0c |........|........|
|00001c50| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001c60| 0a ec 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 0b 07 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001c80| 00 00 00 00 00 00 00 00 | 0b 0f 00 0c 00 0a 00 03 |........|........|
|00001c90| 00 00 00 09 00 00 00 00 | 00 00 00 00 0b dd 00 0c |........|........|
|00001ca0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001cb0| 0b e5 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001cc0| 00 00 00 00 0c ae 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001cd0| 00 00 00 00 00 00 00 00 | 0c ba 00 0c 00 0a 00 03 |........|........|
|00001ce0| 00 00 00 09 00 00 00 00 | 00 00 00 00 0d e2 00 0c |........|........|
|00001cf0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 0d ea 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001d10| 00 00 00 00 0d f2 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001d20| 00 00 00 00 00 00 00 00 | 0e 01 00 0c 00 0a 00 03 |........|........|
|00001d30| 00 00 00 09 00 00 00 00 | 00 00 00 00 0f 99 00 0c |........|........|
|00001d40| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 0f a7 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 10 39 00 0c | 00 0a 00 03 01 00 00 09 |.....9..|........|
|00001d70| 00 00 00 00 00 00 00 00 | 10 45 00 0c 00 0a 00 03 |........|.E......|
|00001d80| 00 00 00 09 00 00 00 00 | 00 00 00 00 10 4b 00 0c |........|.....K..|
|00001d90| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 10 4c 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.L......|........|
|00001db0| 00 00 00 00 10 a3 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 10 ac 00 0c 00 0a 00 03 |........|........|
|00001dd0| 00 00 00 09 00 00 00 00 | 00 00 00 00 10 b2 00 0c |........|........|
|00001de0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 10 b3 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001e00| 00 00 00 00 10 dd 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001e10| 00 00 00 00 00 00 00 00 | 10 de 00 0c 00 0a 00 03 |........|........|
|00001e20| 00 00 00 09 00 00 00 00 | 00 00 00 00 11 44 00 0c |........|.....D..|
|00001e30| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 11 4f 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.O......|........|
|00001e50| 00 00 00 00 11 61 00 0c | 00 0a 00 03 01 00 00 09 |.....a..|........|
|00001e60| 00 00 00 00 00 00 00 00 | 11 62 00 0c 00 0a 00 03 |........|.b......|
|00001e70| 00 00 00 09 00 00 00 00 | 00 00 00 00 11 ac 00 0c |........|........|
|00001e80| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001e90| 11 ad 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001ea0| 00 00 00 00 13 16 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 13 20 00 0c 00 0a 00 03 |........|. ......|
|00001ec0| 00 00 00 09 00 00 00 00 | 00 00 00 00 13 25 00 0c |........|.....%..|
|00001ed0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 13 26 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.&......|........|
|00001ef0| 00 00 00 00 13 e3 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001f00| 00 00 00 00 00 00 00 00 | 13 f3 00 0c 00 0a 00 03 |........|........|
|00001f10| 00 00 00 09 00 00 00 00 | 00 00 00 00 14 05 00 0c |........|........|
|00001f20| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001f30| 14 06 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001f40| 00 00 00 00 15 1e 00 0c | 00 0a 00 03 01 00 00 09 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 15 29 00 0c 00 0a 00 03 |........|.)......|
|00001f60| 00 00 00 09 00 00 00 00 | 00 00 00 00 15 e1 00 0c |........|........|
|00001f70| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 15 f9 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 16 42 00 0c | 00 0a 00 03 01 00 00 09 |.....B..|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 16 50 00 0c 00 0a 00 03 |........|.P......|
|00001fb0| 00 00 00 09 00 00 00 00 | 00 00 00 00 16 fb 00 0c |........|........|
|00001fc0| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 17 05 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 17 29 00 0c | 00 0a 00 03 01 00 00 09 |.....)..|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 17 35 00 0c 00 0a 00 03 |........|.5......|
|00002000| 00 00 00 09 00 00 00 00 | 00 00 00 00 17 3e 00 0c |........|.....>..|
|00002010| 00 0a 00 03 01 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00002020| 17 3f 00 0c 00 0a 00 03 | 00 00 00 09 00 00 00 00 |.?......|........|
|00002030| 00 00 00 00 17 74 00 0c | 00 0a 00 03 01 00 00 09 |.....t..|........|
|00002040| 00 00 00 00 00 00 00 00 | 17 77 00 0c 00 0a 00 03 |........|.w......|
|00002050| 00 00 00 09 00 00 00 00 | 00 00                   |........|..      |
+--------+-------------------------+-------------------------+--------+--------+